home *** CD-ROM | disk | FTP | other *** search
/ Invisible Universe / Invisible Universe (1995)(Voyager)[Mac-PC].iso / mac / MOVIES / SHARED.DIR / 01011_Script_notes for lazy instantiation < prev    next >
Text File  |  1995-11-21  |  519b  |  19 lines
  1. on LazyNotes it, btnList, i
  2.   
  3.   if listP(it) then
  4.     set it = string(it)
  5.     set len = the length of it
  6.     set it = char 2 to len - 2 of it
  7.     set str = "set it = birth("  & it & ")"
  8.     do str
  9.     --put ">>> " &str
  10.     setProp btnList, i, it
  11.   end if
  12.   
  13.   put quote into q     
  14.   set gCBL to [:]
  15.   set sc = script "sbc"
  16.   --  addprop gCBL, 2, birth(script "sbc",2,"CT5R.PIC","CT5P.PIC","myGo "&q&"O"&q)
  17.   addprop gCBL, 2, [sc, 2, "CT5R.PIC", "CT5P.PIC","myGo "&q&""e&"&q&"O"&q&""e"] 
  18. end
  19.